gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGplaceCss.asp
<!-- #INCLUDE FILE="login.asp" -->
<!--#include file=include/Color.inc -->
<!--#include file=include/Font.inc -->
<%
'///******************************************************************
' 广告位样式 文件名：GGplaceCss.asp 参数：action 为 不同的功能标示
'******************************************************************///
Call AdminQx(3,GgPlaceflid(trim(request("pid"))))
action=trim(request.querystring("action"))
dqw="编辑广告位样式 "&"[<a href='GGclass.asp?action=edits&pid="&trim(request("pid"))&"'>修改属性</a> -- <a href=javascript:opw('GGplaceCz.asp?a=Yl&id="&trim(request("pid"))&"','ZonGG',800,600)>当前效果</a>]"
Call Heads_GGclass(dqw)
call GGweicssEdit()
%>
<%
'/********************************************************************
' GGweicssEdit() 编辑广告位样式
'********************************************************************/
sub GGweicssEdit()
%>
<table border=1 width=100% cellspacing=0 cellpadding=2 bordercolorlight=#C0C0C0 bordercolordark=#FFFFFF><%
dim p_name,p_order,pid,cid,ccid,ncid,sqladd,Plei,adids,ccss,ii
sqladd=""
pid=trim(request.querystring("pid"))
if not(isnumeric(pid)) then pid=0
sql="select * from place where Pid="&pid
set rs=conn.execute(sql)
if rs.eof and rs.bof then
rs.close:set rs=nothing
exit sub
end if
p_name=rs(1):Plei=rs(2):cid=rs(4):adids=rs(5)
ccss=rs(3)
%>
<form action='?nsort=<% response.write nsort %>&action=edits&pid=<% response.write pid %>&edit=ok' method=post>
<tr height=30>
<td height="40" align="center" colspan="2" class="td1"><b>广告位名称：</b><a title="管理广告条" href="GGtiao.asp?pid=<%=pid%>"><%=p_name%></a> <b>所属分类：</b><%=Ggflm(cid)%></td>
</tr>
<%
if trim(request.querystring("edit"))="ok" then
response.write "<tr><td height=100 align=center>"
Rs1.open "Select * From [place] where Pid="&pid,conn,3,3,1
rs1(3)=replace(trim(request("ccss")),", ",","):rs1(5)=trim(request("adids")):rs1.update
if xmltype=1 then ''
'' 得到子节点编号列表
'' 得到符值列表
Dim tes,sits
tes=replace(trim(request("ccss")),", ",",")&"/$/"&trim(request("adids"))
sits="3|5"
call PubEditXml(dataxml&"/place/"&rs(0)&".xml","Place",sits,tes) '为 placeid.xml 文件设置新内容
end if
rs1.close
response.write "<font class=red_3>编辑广告位样式成功！</font><br><br><a href='?pid="&pid&"'>点击返回</a>"
response.write "</td></tr>"
else
rs.close
%>
<tr><td width="50%">
<b>广告条依次显示顺序</b><i><font class=red>（以“,”分隔输入各广告条 ID，允许重复）</font></i><BR>
<input type="text" name="adids" size="61" value="<%=adids%>"><br>
<iframe name="a" src="GGplaceTs.asp?adids=<%=adids%>" width="100%" height="270" marginwidth="1" marginheight="1" border="1" frameborder="1"></iframe></td>
<td width="50%" valign="top">
<b> 显示方式：</b><%=PubFgdy(Ggweilx,"|",Plei)%><br><BR>
<%if Plei<>"6" and Plei<>"7" then '' %>
边宽
<select size="1" name="ccss">
<%
if isnumeric(PubFgdy(ccss,",",0)) then
ii=cint(PubFgdy(ccss,",",0))
else
ii=0
end if
for i=0 to 6
response.write "<option"
if ii=i then
response.write " selected"
end if
response.write ">"&i&"</option>"
next
%>
</select> 边色
<select size="1" name="ccss">
<option value="">默认</option>
<%
for i=1 to 139
response.write "<option style='background-color:"&se_zhi(i)&";color: "&se_zhi(i)&"' value='"&se_zhi(i)&"' "
if PubFgdy(ccss,",",1)=se_zhi(i) then response.write " selected"
response.write ">"&se_zhi(i)&"</option>"
next
%>
</select><br><BR>
高度
<input type=text name=ccss size=5 maxlength="4" value="<%=PubFgdy(ccss,",",2)%>">
宽度 </font>
<input type=text name=ccss size=5 maxlength="4" value="<%=PubFgdy(ccss,",",3)%>">
<br> <br>
<%end if%>
<%
Select case Plei
case 1:response.write "<font class=red> 显示方式为“"&PubFgdy(Ggweilx,"|",1)&"”时<br><br> 循环播放顺序跟“广告条依次显示顺序”一致<br><BR> 此时，以上样式同于每次显示的广告条。</font><br><BR>"
case 2
%> 每列数
<select size="1" name="ccss">
<% if isnumeric(PubFgdy(ccss,",",4)) then
ii=cint(PubFgdy(ccss,",",4))
else
ii=0
end if
for i=Ubound(split(adids&",",",")) to 1 step -1%>
<option <%if ii=i then response.write " selected"%>><%=i%></option>
<%next%>
</select>
<font class=red>如该数小于依次显示的广告条总数，自动分多列显示</font>
<br><br> 行间距
<select size="1" name="ccss">
<%if isnumeric(PubFgdy(ccss,",",5)) then
ii=cint(PubFgdy(ccss,",",5))
else
ii=0
end if%>
<%for i=0 to 100%>
<option <%if ii=i then response.write " selected"%>><%=i%></option>
<%next%>
</select> 列间距
<select size="1" name="ccss">
<%
if isnumeric(PubFgdy(ccss,",",6)) then
ii=cint(PubFgdy(ccss,",",6))
else
ii=0
end if
for i=0 to 100%>
<option <%if ii=i then response.write " selected"%>><%=i%></option>
<%next%>
</select><br> <br>
<%case 3
%> 每行数
<select size="1" name="ccss">
<%
if isnumeric(PubFgdy(ccss,",",4)) then
ii=cint(PubFgdy(ccss,",",4))
else
ii=0
end if
for i=Ubound(split(adids&",",",")) to 1 step -1%>
<option <%if ii=i then response.write " selected"%>><%=i%></option>
<%next%>
</select>
<font class=red>如该数小于依次显示的广告条总数，自动分多行显示</font>
<br><br> 行间距
<select size="1" name="ccss">
<%
if isnumeric(PubFgdy(ccss,",",5)) then
ii=cint(PubFgdy(ccss,",",5))
else
ii=0
end if
for i=0 to 100
%>
<option <%if ii=i then response.write " selected"%>><%=i%></option>
<%next%>
</select> 列间距
<select size="1" name="ccss">
<%
if isnumeric(PubFgdy(ccss,",",6)) then
ii=cint(PubFgdy(ccss,",",6))
else
ii=0
end if
for i=0 to 100%>
<option <%if ii=i then response.write " selected"%>><%=i%></option>
<%next%>
</select><br> <br>
<% case 4
%> 每列数
<select size="1" name="ccss">
<%
if isnumeric(PubFgdy(ccss,",",4)) then
ii=cint(PubFgdy(ccss,",",4))
else
ii=0
end if
for i=Ubound(split(adids&",",",")) to 1 step -1%>
<option <%if ii=i then response.write " selected"%>><%=i%></option>
<%next%>
</select>
<font class=red>如该数小于依次显示的广告条总数，自动分多列显示</font>
<br><br> 行间距
<select size="1" name="ccss">
<%
if isnumeric(PubFgdy(ccss,",",5)) then
ii=cint(PubFgdy(ccss,",",5))
else
ii=0
end if
for i=0 to 100%>
<option <%if ii=i then response.write " selected"%>><%=i%></option>
<%next%>
</select> 列间距
<select size="1" name="ccss">
<%
if isnumeric(PubFgdy(ccss,",",6)) then
ii=cint(PubFgdy(ccss,",",6))
else
ii=0
end if
for i=0 to 100%>
<option <%if ii=i then response.write " selected"%>><%=i%></option>
<%next%>
</select>
<br><br> 运动方向 <select size="1" name="ccss">
<option value="up" <%if PubFgdy(ccss,",",7)="up" then response.write "selected"%>>上</option>
<option value="down" <%if PubFgdy(ccss,",",7)="down" then response.write "selected"%>>下</option>
</select> 速度<i>（数量）</i><select size="1" name="ccss">
<%
if isnumeric(PubFgdy(ccss,",",8)) then
ii=cint(PubFgdy(ccss,",",8))
else
ii=6
end if
for i=1 to 100%>
<option <%if ii=i then response.write " selected"%>><%=i%></option>
<%next%>
</select> <span lang="en"><font face="Times New Roman">
<font color="#FF0000">×</font></font></span><i>（延迟）</i>
<select size="1" name="ccss">
<%
if isnumeric(PubFgdy(ccss,",",9)) then
ii=cint(PubFgdy(ccss,",",9))
else
ii=96
end if
for i=100 to 1 step -1%>
<option <%if ii=i then response.write " selected"%>><%=i%></option>
<%next%>
</select>
<br><br> 运动模式 <select size="1" name="ccss">
<option value="" <%if PubFgdy(ccss,",",10)="" then response.write "selected"%>>循环滚动</option>
<option value="alternate" <%if PubFgdy(ccss,",",10)="alternate" then response.write "selected"%>>上下振荡</option>
</select>
<br> <br>
<%case 5
%> 每行数
<select size="1" name="ccss">
<%
if isnumeric(PubFgdy(ccss,",",4)) then
ii=cint(PubFgdy(ccss,",",4))
else
ii=0
end if
for i=Ubound(split(adids&",",",")) to 1 step -1%>
<option <%if ii=i then response.write " selected"%>><%=i%></option>
<%next%>
</select>
<font class=red>如该数小于依次显示的广告条总数，自动分多行显示</font>
<br><br> 行间距
<select size="1" name="ccss">
<%
if isnumeric(PubFgdy(ccss,",",5)) then
ii=cint(PubFgdy(ccss,",",5))
else
ii=0
end if
for i=0 to 100
%>
<option <%if ii=i then response.write " selected"%>><%=i%></option>
<%next%>
</select> 列间距
<select size="1" name="ccss">
<%
if isnumeric(PubFgdy(ccss,",",6)) then
ii=cint(PubFgdy(ccss,",",6))
else
ii=0
end if
for i=0 to 100%>
<option <%if ii=i then response.write " selected"%>><%=i%></option>
<%next%>
</select>
<br><br> 滚动方向 <select size="1" name="ccss">
<option value="left" <%if PubFgdy(ccss,",",7)="left" then response.write "selected"%>>左</option>
<option value="right" <%if PubFgdy(ccss,",",7)="right" then response.write "selected"%>>右</option>
</select> 速度<i>（数量）</i><select size="1" name="ccss">
<%
if isnumeric(PubFgdy(ccss,",",8)) then
ii=cint(PubFgdy(ccss,",",8))
else
ii=6
end if
for i=1 to 100%>
<option <%if ii=i then response.write " selected"%>><%=i%></option>
<%next%>
</select> <span lang="en"><font face="Times New Roman">
<font color="#FF0000">×</font></font></span><i>（延迟）</i>
<select size="1" name="ccss">
<%
if isnumeric(PubFgdy(ccss,",",9)) then
ii=cint(PubFgdy(ccss,",",9))
else
ii=96
end if
for i=100 to 1 step -1%>
<option <%if ii=i then response.write " selected"%>><%=i%></option>
<%next%>
</select>
<br><br> 运动模式 <select size="1" name="ccss">
<option value="" <%if PubFgdy(ccss,",",10)="" then response.write "selected"%>>循环滚动</option>
<option value="alternate" <%if PubFgdy(ccss,",",10)="alternate" then response.write "selected"%>>左右摇摆</option>
</select>
<br> <br>
<%
case 6
%>
每次弹出窗口数
<select size="1" name="ccss">
<%
if isnumeric(PubFgdy(ccss,",",0)) then
ii=cint(PubFgdy(ccss,",",0))
else
ii=0
end if
for i=1 to Ubound(split(adids,","))+1 %>
<option <%if ii=i then response.write " selected"%>><%=i%></option>
<%next%>
</select><br><BR>
<% response.write "<font class=red> 显示方式为“"&PubFgdy(Ggweilx,"|",6)&"”时<br><br> 循环弹出顺序跟“广告条依次显示顺序”一致。<br><BR> 弹出窗口样式（如：高、宽）跟该窗口显示的广告条样式一致。</font><br><BR>"
end Select
%>
<%if Plei<>"6" and Plei<>"7" then '' %>
格局 <select size="1" name="ccss">
<option value="" <%if PubFgdy(ccss,",",Ubound(split(ccss,","))-6)="" then response.write "selected"%>>页内嵌入</option>
<option value="absolute" <%if PubFgdy(ccss,",",Ubound(split(ccss,","))-6)="absolute" then response.write "selected"%>>页面附层</option>
</select>
附层位置 <select size="1" name="ccss">
<option value="left" <%if PubFgdy(ccss,",",Ubound(split(ccss,","))-5)="left" then response.write "selected"%>>居左</option>
<option value="right" <%if PubFgdy(ccss,",",Ubound(split(ccss,","))-5)="right" then response.write "selected"%>>居右</option>
</select>
<input type=text name=ccss size=4 maxlength="4" value="<%=PubFgdy(ccss,",",Ubound(split(ccss,","))-4)%>">
<select size="1" name="ccss">
<option value="top" <%if PubFgdy(ccss,",",Ubound(split(ccss,","))-3)="top" then response.write "selected"%>>居顶</option>
<option value="bottom" <%if PubFgdy(ccss,",",Ubound(split(ccss,","))-3)="bottom" then response.write "selected"%>>居底</option>
</select>
<input type=text name=ccss size=4 maxlength="4" value="<%=PubFgdy(ccss,",",Ubound(split(ccss,","))-2)%>">
<br><BR>
<font class=red>选择“页面附层”时，“附层位置”有效，其值应为数字或百分比</font>
<br><BR>
背景色 <select size="1" name="ccss">
<option value="">默认</option>
<%
for i=1 to 139
response.write "<option style='background-color:"&se_zhi(i)&";color: "&se_zhi(i)&"' value='"&se_zhi(i)&"' "
if PubFgdy(ccss,",",Ubound(split(ccss,","))-1)=se_zhi(i) then response.write " selected"
response.write ">"&se_zhi(i)&"</option>"
next
%>
</select>
对齐方式 <select size="1" name="ccss">
<option value="left" <%if PubFgdy(ccss,",",Ubound(split(ccss,",")))="left" then response.write "selected"%>>左</option>
<option value="center" <%if PubFgdy(ccss,",",Ubound(split(ccss,",")))="center" then response.write "selected"%>>中</option>
<option value="right" <%if PubFgdy(ccss,",",Ubound(split(ccss,",")))="right" then response.write "selected"%>>右</option>
</select>
<%end if%>
</td></tr>
<tr><td height=50 class="td1" colspan="2">
<p align="center">
<font class=red>
注：每个广告位内的广告条高宽应保持一致，以免影响整体效果，高、宽可设为数字、百分比或空（尽量不设空）<br>
页面附层格局可将广告位置于当前网页上方，指定位置以达到固定显示于页面某一方位（如固定于底部、左方等）</font>
</td></tr>
<tr><td height=50 align=center colspan="2"><input type=submit value='确定更新广告位样式'></td></tr>
</form>
<%
end if
%>
</table>
<%
end sub
%>